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-TITLE REMPROTCL ~ PROCESS PROTOCOL DEPENDENT STUFF 
-IDENT 'V04=000 
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; FACILITY: REMOTE I/0 ACP 


ABSTRACT: 
THIS MODULE PERFORMS PROTOCOL DEPENDENT FUNCTIONS FOR REMACP 


ENVIRONMENT: 
MODE = KERNEL 
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HISTORY -SEP-1984 :54:07 CREM.SRCJREMPROTCL.MAR;1 
8 7 -SBTTL HISTOR 
§ ; AUTHOR: SCOTT G. DAVIS, CREATION DATE: 21-Aug-1979 
308 40 : MODIFIED BY: 
900 4¢ ; v03-003 JLv0251 Jake VanNoy 29-APR-1983 
000 43; Change TSA connections to look for BIND ACCEPT 
448 rf: : rather than a BIND. 
0000 46; v03-002 JLV0216 Jake VanNoy 29-0CT-1982 
0000 47 ; Add code to support TSA connects. This code is a 
4 48 ; first cut, as the connect session is likely to be 
000 49 ; ECOed soon. This will enable short term testing 
444 29 3 of VAX to VAX connections with the CTERM protocol. 
0000 3¢ : V03-001 DJD3002 Darrell Duffy 16-March-1982 
44 7 : Initialize DEVDEPEND? from config message. 
0000 55; V02=003 DJD3001 Darrell Duffy 21-October-1981 
0000 26 3 Compare protocol version and eco to allow upward 
+444 ef 3 compatibility for this and next versions. 
0000 «59: V02-002 DJD2001 Darrell Duffy 5-Mar-1981 
i444 re 3 RTTDRIVER calls netdriver directly for io. 
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yO. 000 DECLARATIONS $7 EET obec Bg ahi O9 CREM SRCIREMPROTCL MAR: 1 . (1) 
4 63 -SBTTL DECLARATIONS 
op 64 ; 
00 65 ; INCLUDE FILES: 
44 66 ; 
000 67 
44 68 SCCBDEF : 
000 92 SDDBDEF ; device data block 
0000 0 SODTDEF ; driver dispatch table 
0000 71 SDYNDEF GLOBAL 
0000 i $PCBDEF GLOBAL 
0000 7 SRBF DEF 
Bp 08 74 SREMDEF 
000 75 SUCBDEF ; 
0000 76 SRTTUCBEXT ; RTT UCB extensions 
0000 77 
0000 78 ; 
0000 79 ; MACROS: 
0000 80 ; 
0000 81 
0000 82 ; 
0000 83 ; EQUATED SYMBOLS: 
0000 84 ; 
0000 85 
0000000A 0000 86 CTPS$B_TYPE = *XOA 3 *** TEMP 
0000 87 
0000 88 ; 
0000 89 ; OWN STORAGE: 
0000 90 ; 
0000 91 
aaa 9 ¢' 3 -PSECT REM_PURE ,NOWRT,NOEXE 
0000 94 VAX_CONFIG_MSG: 3; Remote terminal handler configuration msg 
01 0000 95 BYTE 1 ; This is a configuration message 
01 0001 96 -BYTE REMSC_CURVRS ; Protocol version 

00 01 0002 97 -BYTE REMS$C_CURECO,0 ; ECO, customer mod ; 
0007 0004 98 -WORD 7 ; This is a VMS system speakin 
0004 0006 99 SUPPORT: «WORD 182 ; I speak only the VMS protoco 

444 130) VAX_CONF IG_END: : End of message 

0008 196 CTERM_BIND MSG: ; Remote terminal handler configuration msg | 
01 0008 10 -BYTE 1 ; This is a BIND message 
02 0009 104 -BYTE 2 ; Protocol version (TSA/CTERM) 

00 00 QO00A 105 -BYTE 0,0 ; ECO, customer mod ; 
0007 O00C 106 -WORD 7 ; This is a VMS system speaking 
0010 OO0E 107 «WORD 1a4 : 1 speak CTERM protocol 

0010 108 CTERM_BIND_END: ; End of message 
0010 109 
0010 110 CTERM_UNBIND_MSG: 

02 0010 111 -BYTE 2 ; UNBIND _ E 

0001 0011 116 «WORD 1 : Incompatible version reason code 
it HF CTERM_UNBIND_END: 
52 45 56 49 52 44 54 43 6" 3 115 CTDRV_NAME : eASCIC /CTDRIVER/ 
7. ay 

0000 $06 119 -PSECT REM_IMPURE NOSHR ,NOEXE,RD,WRT 

0000 118 
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; Protocol hap ey message 
: Message ee Se e 

; This 1s the reason - 1.8.S. 
; End of message 
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v04-000 DECLARATIONS -SEP-1984 54:07 CREM.SRCJREMPROTCL.MAR; 1 
"909 ! ¢ -PSECT REM_CODE,NOWRT 
$6 1 § p++ 
44 127 ; : : 
000 128 ; REMSPROTOCOL = This is an snerpertiy protocol=dependent module for 
0000 129; remote terminal handl uF The idea is to take the DECnet 
0000 130; standard of CONNECT,CONFIG,OPERATE and use it here 
0000 131; more or less. What is expected here is a CONFIGURE 
0000 1 ¢ ; message with the format above, but a quadword of terminal 
0000 133; characteristics is appended - they are jammed into the UCB 
i$ te 3 After that, the Link reverts to passing all messages through. 
0000 136 ; INPUTS: 
0000 137; 
0000 138 ; R5 = virtual device UCB address 
0000 139 ; R? = address of received message 
0000 140 ; R11 = device index 
0000 141; 
0000 13 3 OUTPUTS: 
0000 143; 
0000 144; NONE 
0000 145; 
444 146 ;-- 
000 147 
0000 148 ; 
0000 149 ; Message wasn't a VAX protocol connection... 
0000 150; 
0000 151 NOT_VAX: 
oocc 31 0000 152 BRW TRY_CTERM ; Branch 
0003 153 
0003 154 REMS$PROTOCOL:: 
0003 155 
00D8 C5 2A =691+=—(0003 156 CMPB #42, UCBSB_RTT_OBU(R5) ; TSA request? 
et Boee 13 BEQL NOT_VAX 3 go ahead 
50 QO00'CF 9E& OQOOA 159 MOVAB W*VAX_CONFIG_MSG,RO ; Point at template 
51 57 DO OOOF 160 MOVL ; Point at received message 
81 80 91 0012 161 CMPB (RO) +, (R1)+ ; Check message type 
6F 12 0015 162 BNEQ PROT_ERROR ; If NEQ protocol error 
QOO1'CF 01 90 0017 163 MOVB #1,W*DISC_REASON ; Assume wrong version | 
0004 C5 61 90 QOOI1C 164 MOVB R - : Squirrel away the version for Later 
0021 165 UCBSB_RTT_PROVRS(R5) =: ; 
81 80 91 0021 166 CMPB (RO) +7 (R1T+ ; Check protocol version 
63 =F 8 4 167 BLSSU SEND_DISCON : send a DISCONNECT 
0005 ¢5 61 90 6 168 MOVB (R1), - ; Save the ECO number for now 
0028 169 UCB$B_RTT_PROECO(RS) =; 
0O01'cCF 02 90 bo¢e 170 MOVB #2,W*BISC_REASON ; Assume he doesn't speak my Language 
50 04 CcO 00 : 171 ADDL #4,R0 ; Move past uninteresting stuff 
51 04 ¢O 003 76 ADOL #4,R1 ; Here, too 
81 80 8 0036 «(17 BITW  (RO)+,(R1)+ : Can he do what I do? 
4—€ 13 0039 174 BEQL SEND_DISCON : If EQL no - error 
ca 
038 133 3 Decide which VRS and ECO we are going to speak on our end. 
tH 17 3 PROVRS and PROECO are his end of things. We will set them to our 
Oats 12 : ond 30 that RTTDRIVER can look at these to decide what protocol to 
: uild, 
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yor 000 DECLARATIONS ~3EE 1984 05:56:07 PREM ERCTREMPROSCL MAR: 1 weet f 
09 . ! 1 3 
0004 cS) 91 8 rt : CMPB UCBSB fl — - ; If other side is up to snuff 
01 88 F 184 reese ; and not beyond us 
ee 4 185 BEQL 10 ; then check eco number 
0004 ¢S5) «601—Ss «90 Bae 196 MOVB #REMSC_CURVRS, ; Else speak our latest to him. 
04 1 UCBS$B ast PROVRS (RS) ; and he will talk down to us. 
0005 cS 01 90 0047 188 5$: MOVB PREMSC U 3; use our latest eco as well 
004C 189 yces $B_RTT_PROECO(RS) —: 
07 ~=~11 pee 139 BRB 0$ : 
0005 ¢5) 91 BRe 136 10$: CMPB UCBSB_RTT_PROECO(RS),- ; Is the ECO greater than ours 
01 5 19 #REMSC_CURECO ; ; 
F2 1A 005 194 BGTRU 5$ ; Use our latest ECO to talk to him 
0055 195 20$: 
0055 196 
Opae 134 ASSUME UCBSL_DEVDEPEND-UCBSB_DEVCLASS EQ 4 
40 AS 81 7D 0055 199 MOVQ (R1)+,UCB$B_DEVCLASS(R5) ; Stuff the terminal characteristics 
0005 ¢5) §=695 0059 200 TSTB © UCBSB_RTT_PROECO(R5) ; Is this the latest version? 
06 13 005D 201 BEQL 30$ ; Nope, just 8 bytes of chars 
81 DO OOSF $0 MOVL (R1)+ : 
48 AS 0061 0 UCBSL ‘RIT DEVDEPEND2(R5) ; for all 12 bytes 
64 AS 10 88 Opes 208 30$: BISB #UCBSA_ONCINE ,UCBSW_ STS(RS) ; Not initializing protocol 
0067 06 ; 
0067 207 ; Now the Link is valid and up. We need to obtain the window block 
0067 208 ; for the rttdriver and then call it with an attention message to 
0067 $18 3; start its receive to the net Link. 
doe? 51h 
50 0000'DF48 3C 0067 $i¢ MOVZWL @W*REMSGL_CHANVECECR11],RO ; Obtain the channel 
55 Q000°DF4B DO O06D 21 MOVL @W*REM$GL_UCBVECCR11],R5 ; and the ucb address 
00000000'GF 16 0073 214 JSB Oe OESVERTS YEHAN ; obtain the ccb address for the net 
04 A1 DO 0079 215 MOVL CCBSL_WIND(R1),- ; Store the window block address 
00B4 C5 007C 216 UCBSL RTT =NETWIND (RS) ; in the ucb for the rttdriver 
52 04 pO OO7F 217 MOVL BFSC_TT-STARTRCV, R2 : The attention modifier code 
FF7B" 30 pee $18 BSBW REMSATTNNSS ; Call driver with attention message 
05 008 19 RSB : Done 
0086 220; . 
0086 221; There was some sort of error on the Link 
0086 $s§ . 
0086 223 PROT_ERROR: ; 
FF77° 31 st $$¢ BRW REMSKILL_UCB ; Break the Link and forget about it 
0089 226 ;++ 
0089 7; 
434 8 ; REMSSEND_CONFIG - send CONFIGURE message to partner 
0089 0 ;-- 
0089 4 
0089 § SEND_DISCON: : sone a DISCONNECT message 
56 9000" CF 9E 0089 3 MOVAB W*DISCON_MSG,R6 msg address 
02" DO OO8E 34 MOVL S*#DISCON END- DISCON_ MSG, nt: Pty any Length 
58 docs: CF 9— 0091 35 MOVAB W*DISCON AST,R8 Z for an AST to kill channel 
2A «111 B38 3 BRB SEND_COMMON : thigh in common code 
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yOee 000 DECLARATIONS mi ety y 85: df :07 YReM. SRCIRE MPROTCL. MAR; 1 ° (1) 
38 3 SEND_CTERM DISC: 
56 010" F 43 .) 9 MOVAB W*CTERM_UNBIND_MSG,R6 t_msg address 
3" D 90 240 MOVL SAACTERR. UNBIND _END- =CTERM_ UNBIND* mse. R10 set aso Length 
58 8ocs* 9 9E QOA 41 MOVAB W“DISCON- ASTAR 3; Set for an AST kill channel 
1B Ot ~ a; BRB SEND_ COMMON 3 Finish in connen "code 
GOA? 44 REMSSEND_CONFIG:: ; Send a CONF IGURE message 
00D8 C5 2A o4 0A7 45 CmMPB #42 ,UCBSB_RTT_OBJ(R5) ; TSA request? 
OA 13 OOAC 46 BEQL 10 : ao, sheed 
56 OO00'CF 3 Boat 47 MOVAB W*VAX_CONFIG_MSG,R6 ; msg addr 
5A 08" 00 008 48 MOVL § S*#VAR_CONFIG_END-VAX_CONF IG *Mses RIO: Get msg Length 
08 11 tet 49 BRB 208 
008 50 10$: 
56 Q008'CF 9E& 00B8 51 MOVAB W*CTERM_BIND_MSG,R6 msg address 
5A 08""-—sé0 08D 3g wae MOVL  S*#CTERM_BIND_END-CTERM bind* _MSG,R10 ; Get msg length 
58 04 00C0 54 CLRL R8 3 No AST 
00C 55 
00¢ 36 SEND_COMMON: 7 
FF3B" 31 00C 5 BRW REMSSEND_MSGAST ; Send message and return 
00cS 258 
00c5 59 ;++ 
00c5 60 ; 
00c5 61 ; DISCON_AST = DISCONNECT message is gone; break the Link 
00c5 $06 ; 
00CS 263 ; INPUTS: 
00CS 264 ; . é 
00cS 3 265; 4(AP) = device index 
00CS5 266 ; 
00C5 267 ;-- 
00CS 268 
0800 00CS 269 DISCON_AST: «WORD “M<R11> 
5B 4604 AC) 00 O0C? 270 MOVL 4 (AP) R11 ; Get the device index 
FF32" 30 0O0CB 271 BSBW REMSKILL UCB ; KILL the channel 
04 Bere si¢ RET 3; Done 
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NS ety Pi 85:34:09 LREM. SRCJREMPROTCL MAR: 1 . (3) ve 
75 
6 ; 
f ; Check for CTERM protocol BIND message 
i: a 
HY TRY_CTERM: 
Ht MOVAB W*CTERM_BIND_MSG+1,RO ; Point at template (past message type) 
8 MOVL R7,R1 ; Point at received message 
84 CMPB #4,(R1)+ ; BIND ACCEPT? 
85 BNEQ PROT_ERROR : If NEQ, not either protocol 
6 MOVB (R1), = ; Squirrel away the version for Later 
UCBSB_RTT_PROVRS(RS) =; 
88 CMPB (RO)+7 (RIT+ ; Check protocol version 
89 BLSSU SEND_CTERM_DISC ; If NEQ NG = send a DISCONNECT 
90 MOVB (R1), - ; Save the ECO number for now 
31 UCBSB_RTT_PROECO(RS) ~—; 
$8 : revision field is used to denote VMS connections. 
95 MOVW  2(R1),UCBSW_RTT_SYSTYPE(RS) ; Save away first part of revision 
97 ; Decide which VRS and ECO we are going to speak on our end. 
98 ; PROVRS and PROECO are his end of things. We will set them to our 
99; end so that CTDRIVER can look at these to decide what protocol to 
00 ; build. 
g 
$8 CMPB UCBSB_RTT_PROVRS(R5),#2 ; If other side is up to snuff and not beyon 
04 BEQL 10$ ; then check eco number 
05 MOVB #2,- ; Else speak our latest to him. 
06 UCBSB_RTT_PROVRS(R5) : and he will talk down to us. 
07 5$: MOVB #0,- ; use our latest eco as well 
08 UCBSB_RTT_PROECO(RS) ~~; 
44 BRB 20% ; 
31} 10$: CMPB ULBSS ATT PROECOIRS) .© ; Is the ECO greater than ours 
13 208 BGTRU 5% : Use our Latest ECO to talk to him 
13 " « BISB. = HUCBSM_ONLINE ,UCBSW_STS(R5) ; Not initializing protocol 
7 3 
\8 ; Now the Link is valid and up. We need to obtain the window block 
19 ; for the rttdriver and then call it with an attention message to 
$0 ; start its receive to the net Link. 
a 
33 MOVZWL su penser .CHanye cat 13.80 ; Obtain the channel 
4 MOVL aw*REMSGL _UCBVECCRI1).R5 ; and the ucb address 
5 JSB G*1OCSVERTF YCHAN ; obtain the ccb address for the net 
6 MOVL CCBSL_WIND(R1),- ; Store the window block address 
UCBSL-RTT_NETWIND(RS) ; in the ucb for the rttdriver 
; ; *** PLUG UCB DDT address with CTDRIVER DDT. 
i: 
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v04-000 DECLARATIONS -SEP-1984 02:54:07 (CREM.SRCJREMPROTCL.MAR;1 (3) 
90) 28 127 § BSBW BANG AS CTORV ; Find and relocate 
03 5 3 12A BLBS ; done, continue 
FF6 1 D ¢ BRwW SEND _ trERN. DISC 3 no driver, abort Link 
1 § : Tell driver we have a call for him 
$08 
FECD’ 30 1 § BSBW RE MBLLOC. IRP ; Allocate block 
53 3 4 1 40 MOVL ; Set address 
OA A2 1 136 41 MOVB #0YNSC_BUFIO 
A 4g a CTPSB_TYPE(R) | : Set buffer type 
3 cs 
4 r rf: ;*** this info must be filled in as soon as TSADEF is in EXECML !!! 
jeer 
013A 46 p*** MOVAB CTP$B_PRO_MSGTYPE(R2),- ; 
O13SA «347 j eee CTPS$L_-MSGBAT(R ne ; Set address of data 
O13A 48 ; 208 CLRL CTP$L_USRBFR(R2) ; Set the user buffer address to zero 
013A 49 ; eee MOVB #PROSC_BIND, - 
013A 50 peee CTP$B_PRO_MSGTYPE(R2) ; Set message type to BIND 
52. 0088 C5 DO Q13A 2¢ MOVL UCBSL_DDT(R5),R ; Fetch DDT address from UCB 
52 04 A2. D0 O13F 5 MOVL BOTSL ~PRSOLINT CR), R2 ; Fetch unsolicited interrupt vector 
16 0143 54 JSB (R2) 3; call 
0145 355 
05 0145 329 RSB 3; Done 
0146 57 
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; Inputs: R5 = UCB to be plugged with DDT address 


ESS 
ATl 
146 59 
146 $9 
be 6 
14 °¢ 
Pe o7 FIND _CTDRV: 
OFFE 8F BB 178 9 PUSHR #*M<R1,R2,R3,R4,R5,R6,R7,R8,RI,RIO,R11> 
59 00000013'EF 9E 14A 8$ MOVAB CTDRV_NAME ,R9 ; GET ADDR OF DRIVER NAME 
9A 151 68 MOVZBL ( + ; GET SIZE OF DRIVER NAME 
5A Q0000000'GF 9E 13 34 208 MOVAB G*10C$GL_DEVLIST,R10 3; GET ADDR OF DDB LIST 
SA 6A 00 $38 71 MOVL BOSSE LINK (RIG) AIG ; GET ADDR OF NEXT DDB 
05 12 O1S5E ie BNEQ 0$ : BR IF NOT 
50 D4 0160 7 CLRL RO ; ELSE NOT LOADED 
0018 31 B196 ee BRW CTORV_EXIT 
51 24 AA GE 0165 376 30$: MOVAB DDBST_DRVNAME(R10),R1 ; GET ADDR OF DRIVER NAME 
50 81 9A 0169 a MOVZBL (R1)+ ; GET SIZE OF DRIVER NAME 
69 58 00 61 50 2D 016C 78 CMPCS RO (R1),#0,R8, (RO) ; COMPARE DRIVER NAMES 
E712 Oi7e 379 BNEQ 208 : BR IF NOT EQUAL 
0174 #381 R10 is DDB for CTDORIVER 
0174 $86 
OC AA DO 0174 38 MOVL DDB$L_DDT(R10),- 
0088 C5 0177 «9384 UCBSL_DDT(R5) ; Set DDT address 
50 01 DO O17A 385 MOVL #1,R0 
017D 386 
017D 387 CTDRV_EXIT: 
OFFE 8F BA 017D 388 POPR #*M<R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
05 0181 389 RSB 
0182 390 
0182 391 .END 
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PCBSS_ TERMINAL 
PCBST~LNAME 
PCBST~ TERMINAL 
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REMPROTCL 
Symbol table 
VAX_CONF IG_END 00000008 R bg 
VAX_CONF IG_MSG 00000000 R 0 
soon mmo nraoneamonan + 
! Psect synopsis : 
PSECT name Allocation PSECT No. Attributes 
. ABS 00000000 <¢ 0.) 00 ¢ OO.) NOPIC US 
ABS$ 00000000 ( 0.) 1 1.) NOPIC US 
PURE BONO HOS [| 8) 8 ( ¢°3 NOPIC US 
REM_ IMPURE 00000002 <¢ 2.) 05 ¢ 35.) NOPIC US 
REM_CODE 00000182 ( 386.) 04 ( 4.) NOPIC US 
eer esewrenr ee een ec ececocwme eee + 
! ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 37 00:00:00.08 00:00:00.62 
Command processing 137 00:00:00.66 00:00:03.44 
ass 375 00:00:12.74 00:00:26.63 
Symbol table sort 0 00:00:02.14 00:00:04.27 
Pass 2 94 00:00:02.33 00:00:05.10 
Symbol table output 42 00:00:00.30 00:00:01.22 
Psect synopsis output 2 00:00:00.03 00:00:00.03 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 689 00:00:18.28 00:00:41.31 


The working set Limit was 1650 pages. 
memory were used to buffer the intermediate cod 


69244 bytes (136 pages) of virtua 


SSEp= 1986 00: 


R CON ABS 
R CON ABS 
R CON REL 
R CON REL 
R CON REL 


11:1 
54:0 


AX/VMS Macro V04-00 
REM. SRCJREMPROTCL.MAR;1 


LCL NOSHR NOEXE NORD 

LCL NOSHR EXE’ RD WRT N 
LCL NOSHR NOEXE RD 

LCL NOSHR NOEXE - RD T 
LCL NOSHR’ EXE 


There were 80 pages of symbol table space allocated to hold 1381 non-local and 12 lecat symbols. 


391 source Lines were read in Pass 1, producing 31 object records in Pass 2 


28 paces of virtual memory were used to define 27 macros. 


Macro Library name 
_$255$DUA28: _ OBJJREM.MLB;1 
“$255$DUA28: OBJJLIB.MLB;1 
“$255$DUA28: ESyet BISTARLET. MLB;2 
TOTALS (all Libraries) 


SS OH RO SE RO HO em Heme Ht 


pwmwwweceeecoeeeececooeccce 


1506 GETS were required to define 23 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:REMPROTCL/OBJ=OBJ$:REMPROTCL MSRC$:REMPROTCL/UPDATE=(ENHS$:REMPROTCL) +EXECMLS$/LIB+LIB$:REM/LIB 


Page 


wa SEE BYTE 


RD NOWRT NOVEC BYTE 


TCTTAL EQUI 
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